home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 July / 07_02.iso / software / xq-xsetup / files / setup.exe / {app} / plugins / XQ IE Outlook Express 10.xpl < prev    next >
Text File  |  2001-11-29  |  2KB  |  74 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="2"
  4. "UIPATH"="Internet\Outlook Express\System"
  5. "NAME"="Advanced Options"
  6. "LANGUAGE"="VBScript"
  7. "VERSION"="2.01"
  8. "TEXT 1"="Enable creation of new accounts (email, news etc.)"
  9. "TEXT 2"="Enable HTTP mail accounts support"
  10. "DESCRIPTION 1"="Option #1: When disabled, the "Accounts" option is removed from the Tools menu, so that no new accounts can be created. Enabling this allows, access to the "Accounts" dialog."
  11. "DESCRIPTION 2"="Option #2: When disabled, you will be unable to use email accounts which use the HTTP protocol. This includes Hotmail accounts."
  12. "AUTHOR"="Xteq Systems"
  13. "CONTACTURL"="http://www.xteq.com/"
  14. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  15. "COMMENT 1"="HTTP Mail option added by Neil R. Turner [totalxs@hotmail.com] after some inspiration from SΘbastien Maurice."
  16.  
  17. sValPath=""
  18. sP1="HKCU\Software\Microsoft\Outlook Express\"
  19. sP2="HKCU\Identities\Last User ID"
  20.  
  21.  
  22. sV4="HKLM\SOFTWARE\Microsoft\Outlook Express\" 'DW (1 = enable restriction)
  23.  
  24. Sub Plugin_Initialize 
  25.  'OK, let's have a look if we are running IE5...
  26.  s=RegReadValue(sP2)
  27.  if IsEmpty(s)=false then
  28.     'OK - we have a value - check if we can find OE
  29.     sValPath="HKCU\Identities\" & s & "\Software\Microsoft\Outlook Express\5.0\"
  30.     If RegPathExists(sValPath) then
  31.        'OE5 !
  32.        sValPath=sValPath '& sValue
  33.     else
  34.        sValPath=sP1 '& sValue
  35.     end if 
  36.  else
  37.     sValPath=sP1 '& sValue
  38.  end if
  39.  
  40.  
  41.  i=RegReadValue(sV4 & "No Modify Accts")
  42.  if i<>1 then
  43.     Call SetUIElement(1,True)
  44.  end if
  45.  
  46.  i=RegReadValue(sV4 & "HTTP Mail Enabled")
  47.  if i=1 then
  48.     Call SetUIElement(2,True)
  49.  end if
  50.  
  51. ' else
  52. '  Disable
  53. ' end if
  54. End Sub
  55.  
  56. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  57.  i=GetUIElement(1)
  58.  if i=true then
  59.     If RegValueExists(sV4 & "No Modify Accts") then Call RegDeleteValue(sV4 & "No Modify Accts")
  60.  else
  61.     Call RegWriteValue(sV4 & "No Modify Accts",1,2)
  62.  end if
  63.  
  64.  i=GetUIElement(2)
  65.  if i=true then
  66.     Call RegWriteValue(sV4 & "HTTP Mail Enabled",1,2)
  67.  else
  68.     If RegValueExists(sV4 & "HTTP Mail Enabled") then Call RegDeleteValue(sV4 & "HTTP Mail Enabled")
  69.  end if
  70. End Sub
  71.  
  72. Sub Plugin_Terminate 
  73. End Sub
  74.